Shareware Super Platinum 8/Shareware Super Platinum 8.iso/mac/DATABASE/FNTSAMPL.ZIP;1/FNTSAMPL.SMM

INI File | 1992-08-30 | 5.8 KB | 579 lines

[ver]
    4
[sty]

[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    HP LaserJet Series II
[port]
    LPT1:
[lang]
    1
[desc]
    Constructs a document in Ami Pro 3.0 with samples of each available typeface




    715171346
    3
    715165995
    33
    2
    0
    0
    0
    0






    1
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[tag]
    Body Text
    2
    [fnt]
        Arial
        240
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Body Single
    3
    [fnt]
        Times New Roman
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Function
    4
    [fnt]
        Arial
        240
        0
        16385
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        244
        1
        0
        0
        1
        100
    [brk]
        68
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        0
        1
        0
        2
        1
        1440
        10800
        12
        1
        720
        1
        1440
        1
        2160
        1
        2880
        1
        3600
        1
        4320
        1
        5040
        1
        5760
        1
        6480
        1
        7200
        1
        7920
        1
        8640
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        792
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        1
        3
        9360
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        792
        1
        14472
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        2
        2
        4680
        3
        9360
    [txt]
>
[elay]
[l1]
    0
[pg]
    2
    45 0 36 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    54 0 0 1025 1 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#284,9360>Declare    GetFonts(FontNames)

@Function@<:#293,9360>

@Function@<:#293,9360>FUNCTION PrintFonts()

<:#284,9360>DIM basefonts(1)

<:#284,9360>HourGlass(1)

<:#284,9360>IF 0 <<<;> GetFonts(&basefonts) THEN

<:#284,9360>    Message("Fonts could not be retrieved")

<:#284,9360>    EXIT FUNCTION

<:#284,9360>ENDIF

<:#284,9360>HourGlass(0)

<:#284,9360>defstyle = GetProfileString$("amipro", "defstyle", "amipro.ini")

<:#284,9360>IF defstyle = "" THEN

<:#284,9360>    defstyle = "_default.sty"

<:#284,9360>ENDIF

<:#284,9360>New(defstyle, 0, 0)

<:#284,9360>FOR i = 2 TO ArraySize(&basefonts)

<:#284,9360>    FontChange("Courier",0,0,240)

<:#284,9360>    font = basefonts(i)

<:#284,9360>    TYPE ("{font} - ")

<:#284,9360>    FontChange(font,0,0,240)

<:#284,9360>    TYPE ("The quick brown fox jumps over the lazy dog.<[>enter]")

<:#284,9360>NEXT

<:#284,9360>GoToCmd(4,1,2)

<:#284,9360>SetStyle("Title")

<:#284,9360>TYPE ("Sample of all typefaces available in Ami Pro")

@Function@<:#293,9360>END FUNCTION

<:#284,9360>

@Function@<:#293,9360>FUNCTION GetFonts(BaseFonts)

<:#284,9360>mpath=GetMacPath$()

<:#284,9360>fdll="{mpath}fontdll.exe"

<:#284,9360>StatusBarMsg("Checking For Available Fonts...")

<:#284,9360>dllfile=FindFirst$(fdll,0)

<:#284,9360>IF dllfile<<<;>"FONTDLL.EXE" THEN

<:#284,9360>    Message("Can't Find File Fontdll.exe, Exiting Macro")

<:#284,9360>    Return -1

<:#284,9360>ENDIF

<:#284,9360>Idi=DLLLoadLib(fdll, "FNT_FontInit", "A")

<:#284,9360>DLLCall(Idi)

<:#284,9360>Idf=DLLLoadLib(fdll, "FNT_FontFace", "F")

<:#284,9360>i=0

<:#284,9360>face="a"

<:#284,9360>WHILE (face <<<;> "")

<:#284,9360>    face=DLLCall(Idf)

<:#284,9360>    i = i+1

<:#284,9360>    ArrayInsertByKey(&basefonts,face,0)

<:#284,9360>WEND

<:#284,9360>Idc=DLLLoadLib(fdll, "FNT_FontClose", "I")

<:#284,9360>result=DLLCall(Idc)

<:#284,9360>DllFreeLib(Idc)

<:#284,9360>DllFreeLib(Idf)

<:#284,9360>DllFreeLib(Idi)

<:#284,9360>StatusBarMsg("")

@Function@<:#293,9360>END FUNCTION

@Function@<:#293,9360>

>

[Embedded]
00004623
>
[macsum] 2
PrintFonts 0 0 5 2
GetFonts 601 1 10 27
[macse]
14 PrintFonts
5 1
21 1 [X]
0 296 1
5 0
16 GetFonts &1
13
18 1
11 00000131
0 3 "Fonts could not be retrieved"
6 0
15
9
0 296 0
0 286 "amipro" "defstyle" "amipro.ini"
13
8 2
6 2
7 ""
18 0
11 00000242
7 "_default.sty"
8 2
2 101 1 "{2}" 0 0
5 2
8 3
0 1046 &1
13
6 3
18 2
12 00000356
10 00000505
5 1
6 3
3 0
8 3
10 00000271
2 251 1 "Courier" 0 0 240
6 3
22 1
8 4
0 6 "{4} - "
2 251 1 "{4}" 0 0 240
0 6 "The quick brown fox jumps over the lazy dog.[13]"
10 00000323
2 452 1 4 1 2
2 323 1 "Title"
0 6 "Sample of all typefaces available in Ami Pro"
6 0
15
9
14 GetFonts
0 295
13
8 2
7 "{2}fontdll.exe"
8 3
0 789 "Checking For Available Fonts..."
0 280 "{3}" 0
13
8 4
6 4
7 "FONTDLL.EXE"
18 1
11 00000223
0 3 "Can't Find File Fontdll.exe, Exiting Macro"
5 -1
15
9
0 297 "{3}" "FNT_FontInit" "A"
13
8 5
0 284 "{5}"
0 297 "{3}" "FNT_FontFace" "F"
13
8 6
5 0
8 7
7 "a"
8 8
6 8
7 ""
18 1
11 00000444
0 284 "{6}"
13
8 8
6 7
5 1
3 0
8 7
0 1045 &0 "{8}" 0
10 00000340
0 297 "{3}" "FNT_FontClose" "I"
13
8 9
0 284 "{9}"
13
8 10
0 298 "{9}"
0 298 "{6}"
0 298 "{5}"
0 789 ""
6 1
15
9
00004648